home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / mcedit10.zip / HAND.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-19  |  2KB  |  54 lines
  1. PROCEDURE handMouse;
  2.  
  3. var
  4.   handmasks : array[0..1,0..15] of word;
  5.   Regs : Registers;
  6.  
  7. BEGIN
  8.  
  9. { Screen Mask }
  10.  
  11.   handmasks[0,0] := $F3FF;    {1111001111111111}
  12.   handmasks[0,1] := $E1FF;    {1110000111111111}
  13.   handmasks[0,2] := $E1FF;    {1110000111111111}
  14.   handmasks[0,3] := $E1FF;    {1110000111111111}
  15.   handmasks[0,4] := $E1FF;    {1110000111111111}
  16.   handmasks[0,5] := $E07F;    {1110000001111111}
  17.   handmasks[0,6] := $C00F;    {1100000000001111}
  18.   handmasks[0,7] := $8001;    {1000000000000001}
  19.   handmasks[0,8] := $0000;    {0000000000000000}
  20.   handmasks[0,9] := $0000;    {0000000000000000}
  21.   handmasks[0,10] := $0000;   {0000000000000000}
  22.   handmasks[0,11] := $0000;   {0000000000000000}
  23.   handmasks[0,12] := $0000;   {0000000000000000}
  24.   handmasks[0,13] := $8000;   {1000000000000000}
  25.   handmasks[0,14] := $C001;   {1100000000000001}
  26.   handmasks[0,15] := $E001;   {1110000000000001}
  27.  
  28. { Cursor Mask }
  29.  
  30.   handmasks[1,0] := $0000;    {0000000000000000}
  31.   handmasks[1,1] := $0C00;    {0000110000000000}
  32.   handmasks[1,2] := $0C00;    {0000110000000000}
  33.   handmasks[1,3] := $0C00;    {0000110000000000}
  34.   handmasks[1,4] := $0C00;    {0000110000000000}
  35.   handmasks[1,5] := $0C00;    {0000110000000000}
  36.   handmasks[1,6] := $0D80;    {0000110110000000}
  37.   handmasks[1,7] := $2DB0;    {0010110110110000}
  38.   handmasks[1,8] := $6DB6;    {0110110110110110}
  39.   handmasks[1,9] := $6DB6;    {0110110110110110}
  40.   handmasks[1,10] := $6DB6;   {0110110110110110}
  41.   handmasks[1,11] := $7FFE;   {0111111111111110}
  42.   handmasks[1,12] := $7FFE;   {0111111111111110}
  43.   handmasks[1,13] := $3FFE;   {0011111111111110}
  44.   handmasks[1,14] := $1FFC;   {0001111111111100}
  45.   handmasks[1,15] := $0000;   {0000000000000000}
  46.   regs.AX := 9;
  47.   regs.BX := 1;
  48.   regs.CX := 0;
  49.   regs.DX := ofs(handmasks);
  50.   regs.ES := seg(handmasks);
  51.   Intr(51,Regs);
  52. end;
  53. 
  54.